home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs03.d81
/
cad.sfx
/
m
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1990-02-12
|
621b
|
22 lines
1 A=USR(0),0,1,4:A=USR(33),0:A=USR(34),0,Y,6:A=USR(34),X,255,7:A=USR(17)
2 A=USR(1):OPEN15,D0,15,"I0"
3 CLOSE15
4 PRINTCHR$(14)"[147] [193] --> BROKEN LINES
5 [153]" F --> FIGURES
6 PRINT" [199] --> GRID OVERLAY
7 [153]" H --> HEXAGONS
8 PRINT" I --> INDICATORS ON
9 [153]" RIGHT$ --> INDICATORS OFF
10 PRINT" J --> VERTICAL FANOUT
11 [153]" MID$ --> HORIZONTAL FANOUT
12 PRINT" K --> ELLIPSE
13 [153]" (null) --> PARALLEL LINES
14 PRINT" [204] --> LINES (CONTINUOUS)
15 [153]" N --> ENQUIRE (PROGRAM DATA)
16 PRINT" P --> PARALLELOGRAMS
17 [153]" (null) --> POLAR CO-ORDINATES
18 PRINT" [209] --> QUIT [195][193][196]
19 [161]A$:[139]A$[178]""[167]19
20 [153]"LOAD":A[178][183](0),1,7,14:A[178][183](1):A[178][183](16):A[178][183](34),16,Y,6:A[178][183](34),X,231,7
21 [147]"CMND",D0